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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIE 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH TH 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE 
COPIES THEREOF ny NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
viensrehate” O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeeonat tha NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: CROSS REFERENCE PROGRAM 
ABSTRACT: ACCEPTS CROSS REFERENCE DATA AND PRODUCES A SUMMARY 


ENVIRONMENT: LINKABLE IMAGE TO BE USED WITH THE NATIVE MODE LINKER AND COMPILERS 
AUTHOR: K.D. MORSE , CREATION DATE: 12-APR-77 
MODIFIED BY: 

- : VERSION 
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.SBTTL DECLARATIONS 
: INCLUDE FILES: 


: MACROS: 

; MACRO TO INITIALIZE THE OUTPUT LINE DESCRIPTION TABLE 

3 SCRFCONTROLTBL OUT_RTN,ERR_RTN,KEY_TYPE,KEY1 TABLE ,KEY2TABLE,- 

: VALTTABLE , VAL2TABLE 7REF 1 TABLE, REF OTABLE 

; WHERE 

; ERR_RTN = ADDRESS OF USER'S ERROR ROUTINE 

: OUT-RTN = ADDRESS OF USER'S OUTPUT ROUTINE 

: KEY-TYPE = TYPE OF KEY, O=ASCIC, 1=BINARY LONGWORD 

: KEYTTABLE = ADDRESS OF KEY] FIELD DESCRIPTION TABLE 

: KEY2TABLE = ADDRESS OF KEY2 FIELD DESCRIPTION TABLE 

: VALITABLE = ADDRESS OF VAL1 FIELD DESCRIPTION TABLE 

: VAL2TABLE = ADDRESS OF VAL2 FIELD DESCRIPTION TABLE 

: REFITABLE = ADDRESS OF REF1 FIELD DESCRIPTION TABLE 

: REF2TABLE = ADDRESS OF REF2 FIELD DESCRIPTION TABLE 
-MACRO SCRFCONTROLTBL OUT_RTN,ERR_RTN,KEY_TYPE=0,KEY1TABLE,- 

KEY2TABLE, VAL1 TABLE, VALOTABLE, REF 1 TABLE, ~ 
REF 2TABLE 
.LONG 0 ; TREE LISTHEAD-ROOT 
-WORD CRFSK_ENTSIZE : SIZE OF ONE CRF ENTRY 
-WORD CRFSKNODSIZE ; SIZE OF ONE CRF NODE 
-BYTE KEY_TYPE ; TYPE OF KEY 
.BYTE 0 : CRF FLAGS 
.WORD 0 : SECONDARY ERROR STATUS CODE 
.LONG ERR_RTN : ADDR OF ERROR ROUTINE 
-LONG OUT "RIN : ADDR OF OUTPUT ROUTINE 
3 ADDRESSES OF FIELD DESCRIPTIONS 

«LONG KEYITABLE : KEY] FIELD DESCRIPTIONS 
.LONG KEY2TABLE 3 KEY2 FIELD DESCRIPTIONS 
.LONG VALITABLE ; VAL1 FIELD DESCRIPTIONS 
.LONG VAL2TABLE : VAL FIELD DESCRIPTIONS 
.LONG REFITABLE ; REF1 FIELD DESCRIPTIONS 
.LONG REF2TABLE : REF2 FIELD DESCRIPTION 
~ENDM ; END OF INIT MACRO 


; MACRO TO DEFINE ONE FIELD OF THE OUTPUT LINE 
> SCRFFIELD BIT_MASK,FAO_STRING,FIELD_WIDTH,SET_CLEAR 
> WHERE: 


DEF 
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: BIT_MASK=MASK OF BITS INDICATING THIS OUTPUT DESCRIPTION HOLDS 
; FAO-STRING=FAO CONTROL STRING FOR THIS FIELD 
: FIECD_WIDTH=MAXIMUM SIZE OF THIS OUTPUT LINE F 
; SET_CCEAR=INDICATOR HOW TO TEST MASK BITS, I.E. ONE OF THE FOLLOWING 
; SET=MASK BITS ARE TO BE TESTED AS SET 
: CLEAR=MASK BITS ARE TO BE TESTED AS CLEAR 
.MACRO SCRFFIELD BIT_MASK=0,FAO_STRING,FIELD_WIDTH,SET_CLEAR 
. SAVE ; REMEMBER USER'S PSECT 
.PSECT SSCRFSTRNG,RD,WRT,REL ,NOEXE ,NOSHR 
SS$S$LNGI=. ; ADDRESS OF FAO CONTROL STRING 
sASCII \FAO_STRING\ ; OUTPUT FIELD CONTROL STRING 
SSSLNG2=. : INDICATOR FOR LENGTH 
.RESTORE ; RESTORE USER'S PSECT 
.WORD BIT_MASK!*x8000 : RECORD MASK BITS 
IF IDN <SET_CLEAR>,<CLEAR> : DETERMINE WHETHER 
.BYTE 0 ; S TO BE CLEAR 
LIFF : ORS Tr! 
-BYTE 1 : MASK IS TO BE SET 
-ENDC : 


-BYTE FIELD WIDTH MAXIMUM SIZE OF FIELD 


-LONG $$$LNG2-$S$LNG1 STRING DESCRIPTOR 
-LONG $$$LNG1 : FOR FAO CONTROL STRING 


-ENDM : END OF FIELD DESCRIPTION MACRO 


MACRO TO INDICATE END OF OUTPUT LINE DESCRIPTION TABLE 
SCRFF IELDEND 


THERE ARE NO FORMAL PARAMETERS. 


-MACRO $SCRFFIELDEND : 
-WORD 0 ; END FIELD DESCRIPTIONS 
-ENDM ; END OF MACRO 
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